home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Delphi Developer's Kit 1996
/
Delphi Developer's Kit 1996.iso
/
power
/
source7
/
gadgfrm.dfm
/
gadgfrm.txt
next >
Wrap
Text File
|
1995-12-22
|
4KB
|
179 lines
object Form1: TForm1
Left = 143
Top = 102
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'DTools Gadget Demo'
ClientHeight = 211
ClientWidth = 425
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
ShowHint = True
TextHeight = 16
object LEDLabel1: TLEDLabel
Left = 80
Top = 25
Width = 51
Height = 30
Hint =
'This is a TLEDLabel component. The caption property is being se' +
't automatically by the TRotaryKnob component.'
Caption = '0'
Columns = 3
UnlitColor = 16384
SegmentSize = 2
end
object PieMeter1: TPieMeter
Left = 145
Top = 19
Width = 45
Height = 45
Hint = 'This is a TPieMeter component.'
Completed = 0
Font.Color = clYellow
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ForeColor = clFuchsia
ParentFont = False
Percent = 0
end
object Image1: TImage
Left = 203
Top = 179
Width = 33
Height = 33
AutoSize = True
Picture.Data = {<image000.bmp>}
Visible = False
end
object NeatoMeter1: TNeatoMeter
Left = 8
Top = 72
Width = 185
Height = 57
Hint = 'This is a TNeatoMeter component.'
Completed = 0
Font.Color = clBlack
Font.Height = -13
Font.Name = 'System'
Font.Style = [fsBold]
ParentFont = False
Percent = 0
end
object Image2: TImage
Left = 224
Top = 152
Width = 183
Height = 55
AutoSize = True
Picture.Data = {<image001.bmp>}
Visible = False
end
object CheckBox1: TCheckBox
Left = 205
Top = 9
Width = 196
Height = 17
Hint =
'Determines whether or not to display unlit segments of the TLEDL' +
'abel.'
Caption = 'Show Unlit LED Segments'
State = cbChecked
TabOrder = 0
OnClick = CheckBox1Click
end
object CheckBox2: TCheckBox
Left = 205
Top = 33
Width = 186
Height = 18
Hint =
'Determines whether or not to display the Caption property on the' +
' TPieMeter and TNeatoMeter components.'
Caption = 'Caption in Meters'
TabOrder = 1
OnClick = CheckBox2Click
end
object RotaryKnob1: TRotaryKnob
Left = 16
Top = 18
Width = 45
Height = 45
Hint = 'Turn the knob and the other gadgets will change!'
Control = LEDLabel1
Max = 100
Position = 0
OnChange = RotaryKnob1Change
end
object CheckBox3: TCheckBox
Left = 205
Top = 57
Width = 185
Height = 17
Hint =
'Determines whether or not to display the Percent completed on th' +
'e TPieMeter and TNeatoMeter components.'
Caption = 'Show Percent in Meters'
State = cbChecked
TabOrder = 3
OnClick = CheckBox3Click
end
object RadioGroup1: TRadioGroup
Left = 208
Top = 88
Width = 201
Height = 105
Hint = 'Set TNeatoMeter bitmap display options.'
Caption = 'TNeatoMeter Bitmap Options'
ItemIndex = 0
Items.Strings = (
'Standard'
'Stretched Bitmap'
'Tiled Bitmap'
'Tiled Bitmap w/Invert')
TabOrder = 4
OnClick = RadioGroup1Click
end
object RadioGroup2: TRadioGroup
Left = 8
Top = 141
Width = 185
Height = 52
Hint =
'Determines the direction TNeatoMeter will go to indicate progres' +
's.'
Caption = 'TNeatoMeter Direction'
Columns = 2
ItemIndex = 0
Items.Strings = (
'L->R'
'R->L'
'T->B'
'B->T')
TabOrder = 5
OnClick = RadioGroup2Click
end
object BalloonHint1: TBalloonHint
Active = True
MaxWidth = -2
Position = bpAboveRight
ShadowDepth = 8
Shape = bsRoundRect
Left = 111
Top = 2
end
object VisualApp1: TVisualApp
HelpFile = 'DELPHI.HLP'
HintColor = clWhite
HintPause = 1000
Icon.Data = {<image002.ico>}
Title = 'DTools Gadget Demo'
Left = 143
Top = 2
end
end